home *** CD-ROM | disk | FTP | other *** search
/ PCBoard 15.1 Demo / PCBoard v15.1 DEMO - Clark Dev. Co (1994) - Disk 1 of 1.imd / PCBDISK.EXE / PPL / MORE.PPS < prev    next >
Encoding:
Text File  |  1994-02-14  |  380 b   |  11 lines
  1. STRING rsp, prm, val
  2. LET prm = "(@TIMELEFT@ min left), (H)elp, More"
  3. LET val = "`~1234567890!@#$%^&*()-_=+ABCDEFGHIJKLMNOPQRSTUVWXYZ[]{}\|;:',./<>?"
  4. LET val = val+CHR(34)
  5. INPUTSTR prm,rsp,@X0E,45,val,UPCASE+STACKED+ERASELINE+YESNO
  6. TOKENIZE rsp
  7. LET rsp = TOKENSTR()
  8. IF ((rsp <> YESCHAR()) && (rsp <> NOCHAR()) && (rsp <> "NS")) KBDSTUFF NOCHAR()+CHR(13)
  9. KBDSTUFF rsp
  10. END
  11.